00010	C  THIS FILE REPLACES STANFORD DISPLAY CALLS WITH PLOTTER CALLS.
00100		SUBROUTINE DPYSET(I,J,K)
00110		COMMON DO
00120		TYPE 1
00130		ACCEPT 2,DO
00140	1	FORMAT(' PLOT IT?  '$)
00145	2	FORMAT(A1)
00147		IF(DO.NE.'Y')RETURN
00150		CALL PLOTS(M)
00200		END
00300		SUBROUTINE DPYBRT(J)
00400		END
00500		SUBROUTINE TYPLOC(J,K)
00600		END
01100		SUBROUTINE DPYOUT(K)
01200		END
01300		SUBROUTINE SAVB(K)
01400		END
01410		SUBROUTINE DPYBIG(K)
01420		END
01500	
01510		SUBROUTINE ALINE(I,J,K,L)
01532		CALL AIVECT(I,J)
01554		CALL AVECT(K,L)
01576		END
01588	
01600		SUBROUTINE AIVECT(J,K)
01610		COMMON DO
01620		IF(DO.NE.'Y')RETURN
01700		CALL PLOT(J,K,3)
01800		END
01900	
02000		SUBROUTINE AVECT(J,K)
02010		COMMON DO
02020		IF(DO.NE.'Y')RETURN
02100		CALL PLOT(J,K,2)
02200		END
02300	
02400		SUBROUTINE DPYTXT(I,J,K,L)
02450		DATA M/4/
02460		COMMON DO
02470		IF(DO.NE.'Y')RETURN
02500		CALL SYMBOL(I,J,M,0,K,L)
02600		END